100 POKE53280,0:POKE53281,0
110 PRINT"[147][159][176][192][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]";
120 A$="[171][156][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
130 B$="[171][154][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
140 C$="[221]  [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
150 PRINTC$;:FORI=1TO5:PRINTA$C$B$C$;:NEXT
160 PRINT"[173][192][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]";
170 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
180 A$="[146][155][162][152][157] [157] [157] [157] [157] [157] [157] [157][151][146][184][145][145][145][145][145][145][145][145]"
190 POKE214,7:PRINT"[145]";:FORI=1TO38:PRINTA$;:NEXT:PRINT"[152]"
200 FORI=1TO5:READA$:GOSUB230:NEXT
210 POKE214,24:PRINT"[145]"TAB(15)"[155] [204][207][193][196][201][206][199] [145][157][157][157][157][157][157][157][157][157][146][175][175][175][175][175][175][175][175][175]"
220 POKE46,59:POKE48,59:POKE50,59:POKE52,160:CLR:LOAD"WALLSTREET",8
230 PRINTSPC(20-LEN(A$)/2)""A$:RETURN
240 DATA"[215] [193] [204] [204][160][211] [212] [210] [197] [197] [212] [160] [215] [201] [218] [193] [210] [196]","BY [215]ILLIAM [207]. [206]ELSON [202]R."
250 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #67","[211]UBSCRIPTIONS 1-800-831-2694"
260 DATA"[195]OPYRIGHT ([195]) 1989 [215]ILLIAM [206]ELSON"